home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / ulead / browser / install.txt < prev    next >
Text File  |  1994-06-10  |  15KB  |  509 lines
  1. //******************************************************************//
  2. //* Ulead Browser 2.0   Installation Script                        *//
  3. //*                                                                *//
  4. //* INSTALL.EXE, INSTALL.INF, and ULINST.DLL is required for this  *//
  5. //* script to execute.                                             *//
  6. //*                                     1. Vincent Chen, 06/07/94. *//
  7. //******************************************************************//
  8.  
  9. //* No need to SET KEY because we don't do serial number checking *//
  10. //* for this product.                                             *//
  11.  
  12. //* Set the position of the installation window at the middle.       *//
  13. //* This is required by the 2.0 version of INSTALL.EXE that we used. *//
  14. //* (The 1.84 version of INSTALL.EXE will set this as default.)      *//
  15. SET WINDOWS POS5
  16.  
  17. //* Installer Frame Definition *//
  18. TITLE "Ulead Browser Installation"
  19.  
  20. //* No logo bitmap is required in 2.0 version INSTALL.EXE  *//
  21. //* so we skip it.                                         *//
  22.  
  23. //* Define the product name *//
  24.  
  25. PRODNAME="Ulead Browser 2.0"
  26.  
  27. //******** Initialize the global variables *********//
  28.  
  29. //* Target directory *//
  30. TARGETDIR="C:\BROWSER2\"
  31. //* ULEAD2 directory *//
  32. FIO2DIR="ULEAD2\"
  33. //* ULEAD.INI location *//
  34. ULprofile=WINDIR+"ULEAD.INI"
  35. //* ULEAD.DAT directory location *//
  36. ULDIR=WINDIR+"ULEAD.DAT\"
  37.  
  38. //* Set up default font used *//
  39. SELECT STYLE PARA3
  40. SELECT FONT "Helv" 16
  41.  
  42. //* File locations and their layout declaration *//
  43. GOSUB FileDeclare
  44.  
  45. //******************** Main installation starts here ********************//
  46.  
  47. MAIN:
  48.  
  49.    //* This line is required by the installer program *//
  50.    EDIT SELFNAME OF "path" IN ULprofile UNDER "installer"
  51.  
  52.    //* Show welcome screen *//
  53.    GOSUB Welcome
  54.  
  55.    //* Ask the target directory to copy the programs to *//
  56. AskDir:
  57.  
  58.    title_="Select Target Directory"
  59.    GOSUB ShowTitle
  60.    DISPLAY "Enter the directory where you want to install the `cb" PRODNAME
  61.            \ "`ck programs.`n`n"
  62.    INQUIRE STRING INTO TARGETDIR AS DIRECTORY NONULL
  63.    PAUSE OK
  64.    CLEAR
  65.  
  66.    //* Make it upper case *//
  67.    TARGETDIR = STRUPR TARGETDIR
  68.  
  69.    //* Select the items to be installed here.  We don't have options for *//
  70.    //* users to choose, so it just set the total size to be copied and   *//
  71.    //* check the space is enough or not.                                 *//
  72. MainSel:
  73.  
  74.    resel="2"
  75.    copyexe="10"
  76.  
  77.    //* Total Program and Filter Size in HD *//
  78.    size#=3150
  79.  
  80.    //* Check if the BROWSER.EXE is already there.  *//
  81.    //* If yes, see if user want to overwrite it.   *//
  82.    GOSUB CheckExist
  83.  
  84.    //* If user want to select another directory, go back to ask directory. *//
  85.    IF ITEM 2 OF copyexe THEN AskDir
  86.  
  87.    //* Check the space in the target directory.  *//
  88.    //* If enough, go to space_enough to install. *//
  89.    IF DISK TARGETDIR HAS size# THEN spc_enough
  90.  
  91.    //* Otherwise, show warning message to user about space is not enough. *//
  92.    GOSUB Warn
  93.    DISPLAY "`nThere is insufficient space in " TARGETDIR " to install the selected items
  94.            \ (`cr" size# " K`ck required). Please select another drive and click OK to continue.`n`n"
  95.  
  96.    //* Then, ask user to select another disk drive. *//
  97.    SHOW DISKSPACE INTO r1 size# "Not enough space to continue."
  98.    PAUSE OK
  99.    CLEAR
  100.  
  101.    //* Select another disk drive by changing the disk drive of the target *//
  102.    //* directory.                                                         *//
  103.    TARGETDIR=STRNCPY r1 FIRST 2
  104.    TARGETDIR=TARGETDIR+"BROWSER2\"
  105.    GOTO AskDir
  106.  
  107.    //* Target directory has enough space *//
  108. spc_enough:
  109.  
  110.    //* Set the total size of files to be copied to the progress indicator *//
  111.    //* variable.  This will allow the progress indicator to show from     *//
  112.    //* 0% to 100% in one run.                                             *//
  113.    TOTALSIZE#=size#
  114.  
  115.    //* Create target directory *//
  116.    MKDIR TARGETDIR
  117.  
  118.    //* Ask if user want to create program group and icons *//
  119.    GOSUB AskIcon
  120.  
  121.    //* Place the ULEAD2 directory at the same level as the target directory *//
  122.    insaux=STARTDIR+"ULINST.DLL"
  123.    func="uliGetOneLevelUp"
  124.    old=TARGETDIR
  125.    new=""
  126.    yesno=""
  127.    CALL func IN insaux WITH old new yesno
  128.  
  129.    //* Assign the ULEAD2 directory *//
  130.    IF yesno=="Y"
  131.       FIO2DIR = new+FIO2DIR
  132.    ELSE
  133.       FIO2DIR = TARGETDIR+FIO2DIR
  134.    ENDIF
  135.  
  136.    //* Create the ULEAD2 directory *//
  137.    MKDIR FIO2DIR
  138.  
  139.    //* Clear the whole screen *//
  140.    CLEAR ALL
  141.  
  142.    //* Show the text screen 0 *//
  143.    GOSUB CopySub0
  144.  
  145.    //* Copy the programs directly to target directory. *//
  146.    COPY EXE TO TARGETDIR
  147.  
  148.    //* Show the text screen 1 *//
  149.    GOSUB CopySub1
  150.  
  151.    //* Copy the filters directly to ULEAD2 directory.  Original script is *//
  152.    //* to copy them to target directory first, then compare them with the *//
  153.    //* existing ones at ULEAD2 directory.  Then, copy the newer ones to   *//
  154.    //* ULEAD2 directory if they're newer.                                 *//
  155.    //* (We don't do the upgrading in this product to simplify the script) *//
  156.    COPY FIO2 TO FIO2DIR
  157.  
  158.    //* Edit the FIO2PATH and MIOPATH in ULEAD.INI if there are none. *//
  159.    GOSUB EditFIO2PATH
  160.  
  161.    //* Create Album ToolBox group file in ULEAD.DAT directory. *//
  162.    GOSUB EditGroupSection
  163.  
  164.    //* Tell installer that installation is complete *//
  165.    COMPLETE
  166.  
  167.    //* Create the program icons if user said so. *//
  168.    IF icon_sel != ""
  169.       GOSUB CreateIcon
  170.    ENDIF
  171.  
  172.    //* Can't exit from installation now because all are done. *//
  173.    ESCAPE OFF
  174.  
  175.    //* Clear the whole screen. *//
  176.    CLEAR ALL
  177.  
  178.    //* Tell user the installation is complete *//
  179.    title_="Installation Complete"
  180.    GOSUB ShowTitle
  181.    DISPLAY "You have successfully installed `cb" PRODNAME "`ck.`n"
  182.    PAUSE OK
  183.    CLEAR
  184.  
  185.    //* Delete the files used in installation here.  Because we don't use *//
  186.    //* any bitmaps or supporting files in this script, we do nothing.    *//
  187. Over:
  188.  
  189.    //* Bye bye. *//
  190. EXIT
  191.  
  192. //************************* End of Installation ***********************//
  193.  
  194. //* Set or edit the [Library] section for FIO2PATH and MIOPATH *//
  195.  
  196. EditFIO2PATH:
  197.  
  198.      //* Edit [library section] to give FIO2PATH if it doesn't exist *//
  199.      GET STRING "FIO2PATH" IN ULprofile "library" "" 120 INTO r1
  200.      IF r1==""
  201.         r1=FIO2DIR
  202.         EDIT r1 OF "FIO2PATH" IN ULprofile UNDER "library"
  203.      ENDIF
  204.  
  205.      //* Edit [library section] to give MIOPATH if it doesn't exist *//
  206.      GET STRING "MIOPATH" IN ULprofile "library" "" 120 INTO r1
  207.      IF r1==""
  208.         r1=FIO2DIR
  209.         EDIT r1 OF "MIOPATH" IN ULprofile UNDER "library"
  210.      ENDIF
  211.  
  212.      //* Give the default values of Photo CD resolution and image type *//
  213.      GET STRING "Resolution" IN ULprofile "PhotoCD" "" 120 INTO r1
  214.      IF r1==""
  215.         r1="2"
  216.         EDIT r1 OF "Resolution" IN ULprofile UNDER "PhotoCD"
  217.      ENDIF
  218.  
  219.      GET STRING "ImageType" IN ULprofile "PhotoCD" "" 120 INTO r1
  220.      IF r1==""
  221.         r1="2"
  222.         EDIT r1 OF "ImageType" IN ULprofile UNDER "PhotoCD"
  223.      ENDIF
  224.  
  225. RETURN
  226.  
  227. //* Create or add to Album's toolbar group file in ULEAD.DAT directory *//
  228.  
  229. EditGroupSection:
  230.  
  231.       //* Create ULEAD.DAT directory in case it doesn't exist *//
  232.       MKDIR ULDIR
  233.       IF LASTRESULT=="F" THEN ULDIR = TARGETDIR
  234.  
  235.       //* Create group file in WINDOWS\ULEAD.DAT directory for ToolBox *//
  236.       gname = ULDIR+"BROWSER2.GRP"
  237.       grpname="Browser 2"
  238.       secname="Groups"
  239.       yesno=""
  240.  
  241.       //* create it *//
  242.       insaux=STARTDIR+"ULINST.DLL"
  243.  
  244.       func="uliCreateGroupFile"
  245.       CALL func IN insaux WITH gname grpname yesno
  246.  
  247.       //* Add the program icon into the newly created group *//
  248.       func="uliAddProgramIcon"
  249.  
  250.       //* Viewer *//
  251.       pgmname=TARGETDIR+"VIEWER.EXE"
  252.       CALL func IN insaux WITH gname pgmname yesno
  253.  
  254.       //* Also record the data into ULEAD.INI *//
  255.       func="uliInsertGroupToIni"
  256.       CALL func IN insaux WITH gname ULprofile secname yesno
  257.  
  258. RETURN
  259.  
  260. //* Welcome Screen *//
  261. Welcome:
  262.    //* Welcome Screen *//
  263.    title_="Welcome to "+PRODNAME+""
  264.    GOSUB ShowTitle
  265.    DISPLAY "Browse and retrieve all the files on your system, be they image,
  266.            \ graphics, animation, video, sound and text!`n`n
  267.            \ You can execute the BROWSER.EXE program directly from the CD-ROM or
  268.            \ install the " PRODNAME " programs to your hard disk for easier and faster operations.
  269.            \ `n`nThis program can install the " PRODNAME " programs
  270.            \ and create their program icons for you.
  271.            \ Click on the OK button to continue.  Click on the Exit button to exit."
  272.    PAUSE OK
  273. RETURN
  274.  
  275. //* Text screen 0 *//
  276.  
  277. CopySub0:
  278.  
  279.    title_= ""+PRODNAME+" Online Help"
  280.    GOSUB ShowTitle
  281.    DISPLAY "`cb" PRODNAME "`ck's extensive on-line Help is always at hand.
  282.    \ Simply press F1 to instantly open Help at the topic describing the feature your
  283.    \ mouse is resting on. Use the Help menu to browse or search for specific topics,
  284.    \ or to find out more about other products in the Ulead range."
  285.  
  286. RETURN
  287.  
  288. //* Text screen 1 *//
  289.  
  290. CopySub1:
  291.  
  292.    title_= PRODNAME
  293.    GOSUB ShowTitle
  294.    DISPLAY "`cbBrowser`ck organizes the files in your system by representing them as
  295.    \ thumbnails. These thumbnails are then grouped together and placed into convenient
  296.    \ and easy-to-use albums. You can then use powerful cataloging features to search, sort,
  297.    \ mark and slide show your files, either for presentations, or as your own personalized
  298.    \ screen saver."
  299.  
  300. RETURN
  301.  
  302. ShowTitle:
  303.    CLEAR
  304.    SELECT STYLE PARA1
  305.    SELECT FONT "Helv" 20
  306.    title1="`n`cb"+title_+"`ck`n`n"
  307.    DISPLAY title1
  308.    SELECT STYLE PARA3
  309.    SELECT FONT "Helv" 16
  310. RETURN
  311.  
  312. Wait:
  313.    title_="`n`n`n`nOne moment, please..."
  314.    GOSUB ShowTitle
  315.    DISPLAY NOW
  316. RETURN
  317.  
  318. Warn:
  319.    CLEAR
  320.    NOTIFY WITH BEEP
  321.    NOTIFY WITH ICON EXCLAMATION
  322. RETURN
  323.  
  324. CheckExist:
  325.  
  326.    albumexe=TARGETDIR+"BROWSER.EXE"
  327.    IF FILE albumexe EXIST
  328.       GOSUB Warn
  329.       DISPLAY "`nA version of `cb" PRODNAME "`ck already exists.`n
  330.       \ Select the action you want to perform.`n`n"
  331.       r1="&Overwrite with this version"
  332.       r2="&Select another directory for Browser installation"
  333.       INQUIRE SELECTION RADIOBUTTON WITH r1 r2 INTO copyexe
  334.       PAUSE OK
  335.       CLEAR
  336.  
  337.       IF ITEM 1 OF copyexe
  338.          //* Want to overwrite *//
  339.          GOSUB DelExist
  340.       ENDIF
  341.  
  342.       IF ITEM 2 OF copyexe
  343.          //* want to select another directory *//
  344.          resel="1"
  345.          TARGETDIR=
  346.          workdir=
  347.       ENDIF
  348.    ENDIF
  349.  
  350. RETURN
  351.  
  352. //* Delete the existing files in the target directory *//
  353.  
  354. DelExist:
  355.    GOSUB Wait
  356.    DELF SECTION TARGETDIR
  357.       FILE "BROWSER.EXE"
  358.       FILE "VIEWER.EXE"
  359.       FILE "GLOSS.HLP"
  360.       FILE "PRODUCTS.HLP"
  361.       FILE "ALBUM.HLP"
  362.       FILE "VIEWER.HLP"
  363.  
  364.       //* Common Suppporting Files *//
  365.       FILE "UBROWSE.DLL"
  366.       FILE "UFIDO.DLL"
  367.       FILE "ULCONFIG.DLL"
  368.       FILE "ULCONVRT.DLL"
  369.       FILE "ULKERNEL.DLL"
  370.       FILE "ULPRINT.DLL"
  371.       FILE "ULUI.DLL"
  372.       FILE "UMISC.DLL"
  373.    ENDSEC
  374.    DELETE DELF
  375.  
  376. RETURN
  377.  
  378. //* Ask users if they want to create program icons (and program group) *//
  379.  
  380. AskIcon:
  381.    icon_sel=""
  382.    title_="Creating Program Icons"
  383.    GOSUB ShowTitle
  384.    DISPLAY "Select a program group for the `cb" PRODNAME "`ck program icons.
  385.    \ If you do not want to create new pro`-gram icons, click Skip.`n"
  386.    INQUIRE SELECTION LISTBOX WITH GROUPS "Ulead Browser 2.0" INTO icon_sel
  387.    PAUSE TWOBUTTON "OK" "&Skip" INTO yesno
  388.    CLEAR
  389.    IF yesno=="2"
  390.       icon_sel=""
  391.    ENDIF
  392. RETURN
  393.  
  394. //* Create the program icons (and group) *//
  395.  
  396. CreateIcon:
  397.  
  398.       //* Create Program Group *//
  399.       IF icon_sel == "Ulead Browser 2.0"
  400.          NEW GROUP icon_sel
  401.          IF LASTRESULT=="F"
  402.             //* Can't create program group.
  403.             GOSUB Warn
  404.             DISPLAY "`nWindows Program Manager cannot create the program
  405.             \ group `b`cb" icon_sel "`ck`b. It may already exist or you have reached the maximum
  406.             \ number of program groups allowed. In the later case, exit the installation program
  407.             \ and free up additional groups by removing groups you no longer need. Once completed,
  408.             \ re-run the installation program."
  409.             PAUSE OK
  410.             CLEAR
  411.          ENDIF
  412.       ELSE
  413.          //* It's an existing program group, therefore,           *//
  414.          //* we don't check the creation operation is OK or not.  *//
  415.          NEW GROUP icon_sel
  416.       ENDIF
  417.  
  418.       //* Create Program Icons *//
  419.       title_=TARGETDIR+"BROWSER.EXE"
  420.       NEW ITEM title_ AS "Browser"
  421.       title_=TARGETDIR+"VIEWER.EXE"
  422.       NEW ITEM title_ AS "Viewer"
  423.       uprods = WINDIR+"WINHELP "+TARGETDIR+"PRODUCTS.HLP"
  424.       NEW ITEM uprods AS "Ulead Products" LASTONE
  425.  
  426. RETURN
  427.  
  428. //******************************************************************//
  429.  
  430. //* File declaration sections. *//
  431.  
  432. FileDeclare:
  433.    1 DISK "Browser Programs"
  434.    2 DISK "Browser File Filters"
  435.  
  436.    EXE SECTION "BROWSER2\" 1850 "program files"
  437.       //* Program Files *//
  438.       FILE "ULCONFIG.DLL"   1
  439.       FILE "ULBH.CNV"       1
  440.       FILE "BROWSER.EXE"    1
  441.       FILE "BROWSER.HLP"    1
  442.       FILE "VIEWER.EXE"     1
  443.       FILE "VIEWER.HLP"     1
  444.  
  445.       //* Help Files *//
  446.       FILE "GLOSS.HLP"      1
  447.       FILE "PRODUCTS.HLP"   1
  448.  
  449.       //* Common Suppporting Files *//
  450.       FILE "UFIDO.DLL"      1
  451.       FILE "ULKERNEL.DLL"   1
  452.       FILE "ULPRINT.DLL"    1
  453.       FILE "UBROWSE.DLL"    1
  454.       FILE "ULCONVRT.DLL"   1
  455.       FILE "ULUI.DLL"       1
  456.       FILE "UMISC.DLL"      1
  457.    ENDSEC
  458.  
  459.    FIO2 SECTION "ULEAD2\" 1300 "File Filters"
  460.       FILE "PCDLIB.DLL"   2
  461.       FILE "UF2ICI.DLL"   2
  462.       FILE "UF2CU.DLL"    2
  463.       FILE "UF2LZW.DLL"   2
  464.  
  465.       FILE "FIO.HLP"      2
  466.  
  467.       FILE "UF2BMP.FIO"   2
  468.       FILE "UF2CGM.FIO"   2
  469.       FILE "UF2CLP.FIO"   2
  470.       FILE "UF2CUR.FIO"   2
  471.       FILE "UF2DCS.FIO"   2
  472.       FILE "UF2DXF.FIO"   2
  473.       FILE "UF2EPS.FIO"   2
  474.       FILE "UF2GIF.FIO"   2
  475.       FILE "UF2ICO.FIO"   2
  476.       FILE "UF2IFF.FIO"   2
  477.       FILE "UF2IMG.FIO"   2
  478.       FILE "UF2JPEG.FIO"  2
  479.       FILE "UF2MAC.FIO"   2
  480.       FILE "UF2MSP.FIO"   2
  481.       FILE "UF2PCD.FIO"   2
  482.       FILE "UF2PCT.FIO"   2
  483.       FILE "UF2PCX.FIO"   2
  484.       FILE "UF2PIC.FIO"   2
  485.       FILE "UF2PSD.FIO"   2
  486.       FILE "UF2PXR.FIO"   2
  487.       FILE "UF2RAS.FIO"   2
  488.       FILE "UF2RLE.FIO"   2
  489.       FILE "UF2SCT.FIO"   2
  490.       FILE "UF2TGA.FIO"   2
  491.       FILE "UF2TIF.FIO"   2
  492.       FILE "UF2WMF.FIO"   2
  493.       FILE "UF2WPG.FIO"   2
  494.  
  495.  
  496.       FILE "ADFLIC.MIO"   2
  497.       FILE "AUDIO.MIO"    2
  498.       FILE "AVI.MIO"      2
  499.       FILE "MORPH.MIO"    2
  500.       FILE "VEPRJ.MIO"    2
  501.       FILE "QTIME.MIO"    2
  502.       FILE "RTF.MIO"      2
  503.       FILE "CDR.MIO"      2
  504.       //* $$ FILE "PPT.MIO"      2
  505.       //* $$ FILE "DOCDBF.MIO"   2
  506.    ENDSEC
  507.  
  508. RETURN
  509.